  10 :RETURN ;CLEAR ;NT=1
  12 PRINT "**** W & W RACE TRACK ****1-4 PLAYERS. EACH STARTS  WITH $500. BETS CAN BE 1  TO 100 DOLLARS.
  15 PRINT ;PRINT 
  30 INPUT "# OF PLAYERS?"P;IF (P<1)+(P>4)GOTO 30
  40 FOR A=1TO P;@(A)=500;NEXT A
  45 FOR Z=5TO 30;@(Z)=0;NEXT Z
  50 BC=RND (32)×8;FC=BC+4+RND (32)×8
  60 CLEAR ;PRINT "CURRENT ODDS ARE:
  70 FOR A=5TO 11;@(A)=RND (15)+5;PRINT #2,A-4,"-",#3,@(A),"-1";NEXT A
  80 K=0;FOR A=1TO P;IF @(A)#0K=1;CY=-24;PRINT "PLAYER #",#1,A," INPUT HORSE ",;INPUT "#"@(A+11)
  85 CY=-31
  90 IF @(A)#0INPUT "AMOUNT OF BET?"@(A+15);IF (@(A+15)>@(A))+(@(A+15)>100)CY=-31;PRINT "TOO MUCH!!!        ";GOTO 85
  95 CY=-38;IF @(A)#0INPUT "1-WIN 2-PLACE 3-SHOW"@(A+19);IF (@(A+19)>3)+(@(A+19)<1)CY=-38;GOTO 95
 100 IF @(A)#0@(A)=@(A)-@(A+15)
 110 BOX 0,-32,160,24,2;NEXT A;IF K=0PRINT "ALL PLAYERS BUSTED!";FOR Z=1TO 1000;NEXT Z;GOTO 10
 130 NT=4;FC=BC;PRINT "÷7000+2000-500070777 -60-6-6-6 30-6030÷7000000000";NT=0;CLEAR 
 140 Y=40;FOR Z=24TO 30;Y=Y-10;@(Z)=-70;X=@(Z);CY=Y;PRINT #1,Z-23;GOSUB 2000;NEXT Z
 150 BOX 70,0,1,86,1;K=0;NT=1;FC=BC+4+RND (32)×8
 160 &(21)=15;&(20)=55;&(19)=5;FOR Z=1TO 500;NEXT Z;&(19)=0;&(20)=0;&(21)=0
 170 V=RND (7);Y=40-V×10;X=@(V+23);GOSUB 1000;@(V+23)=@(V+23)+20-RND (@(V+4))÷2
 180 IF (@(V+23)>70)+(@(V+23)=70)@(V+23)=70;K=1
 190 X=@(V+23);GOSUB 2000
 210 IF K=0GOTO 170
 215 &(21)=15;&(19)=25;FOR Z=1TO 500;NEXT Z;&(19)=0;&(21)=0
 229 FOR Z=1TO 999;NEXT Z;CLEAR ;NT=1
 230 PRINT "RACE RESULTS:
 233 PRINT "HORSE==WIN===PLACE===SHOW=
 235 O=0
 240 X=-70;FOR Z=24TO 30;IF @(Z)>X X=@(Z);Y=Z
 250 NEXT Z;@(Y)=-80;Z=Y;O=O+1;GOSUB 3000
 255 IF O>2GOTO 270
 260 GOTO 240
 270 PRINT "==========================
 290 FOR Z=1TO P;PRINT "PLAYER #",#1,Z,"     $",#5,@(Z);NEXT Z
 292 K=0;FOR Z=1TO P;IF @(Z)>20000K=1
 293 NEXT Z
 296 IF K=1PRINT "TRACK IS CLOSED!";FOR Z=1TO 1000;NEXT Z;GOTO 10
 300 FOR Z=1TO 3000;NEXT Z;GOTO 45
1000 BOX X,Y,9,9,2;RETURN 
2000 BOX X-3,Y+1,1,1,1;BOX X,Y,4,2,1;BOX X-2,Y-2,1,1,1;BOX X-3,Y-3,1,2,1;BOX X+2,Y+2,2,2,1;BOX X+4,Y+2,1,1,1
2010 BOX X+2,Y-2,2,1,1;BOX X+3,Y-3,1,1,1;RETURN 
3000 A=@(Z-19);B=A÷2;C=A÷3
3010 IF C<1C=1
3020 IF B<1B=1
3030 PRINT "#",#1,Z-23,
3040 IF O=1PRINT #7,A,B,C
3050 IF O=2PRINT #14,B,#7,C
3060 IF O=3PRINT #21,C
3070 FOR W=12TO 15;IF @(W)=Z-23GOSUB 4000
3080 NEXT W;RETURN 
4000 IF @(W+8)>=O@(W-11)=@(W-11)+(@(Z-19)÷@(W+8))×@(W+4)
4010 RETURN 
RUN 
